﻿

'wenn ich ein z.B. ein Kunde lösche, will ich nur über das löschen des Kundens benachrichtig werden, nicht über alle andern.
' und Visual Basic ist beschissen:
Public Class SharedCounter
    Private Shared persistenceServiceInstance = Nothing

    Public Shared Function getPersistenceServiceInstance() As SharedCounter
        If SharedCounter.persistenceServiceInstance Is Nothing Then
            SharedCounter.persistenceServiceInstance = New SharedCounter()
        End If
        Return SharedCounter.persistenceServiceInstance
    End Function

    Private Sub New()
    End Sub

    Private counter As Integer = 0

    Public Sub increment()
        counter += 1
    End Sub
    Public Sub decrement()
        counter -= 1
    End Sub
    Public Function getValue() As Integer
        Return counter
    End Function
End Class